home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / content / devel.tls / icp / vbsamp / ftpexpl.exe / EXP_DEFS.BAS next >
BASIC Source File  |  1996-03-09  |  7KB  |  144 lines
  1. Attribute VB_Name = "Explorer_defs"
  2. Option Explicit
  3.  
  4. '- API Declarations -------------------------------
  5. Public Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long
  6. Public Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long
  7. Public Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal sDrive As String) As Long
  8. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
  9. Public Declare Function GetTempPath Lib "Kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  10. Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociateIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
  11.     
  12. '- API Constants ------------------------------
  13. Public Const DRIVE_CDROM = 5
  14. Public Const DRIVE_FIXED = 3
  15. Public Const DRIVE_RAMDISK = 6
  16. Public Const DRIVE_REMOTE = 4
  17. Public Const DRIVE_REMOVABLE = 2
  18.  
  19. Public Const ERROR_SUCCESS = 0&
  20. Public Const RESOURCETYPE_DISK = &H1
  21. Public Const WM_SETREDRAW = &HB
  22. Public Const REDRAWOFF = 0
  23. Public Const REDRAWON = 1
  24.  
  25. '- Icon Image Index Constants -----------------
  26. Public Const TFOLDERCLOSED = 1
  27. Public Const TFOLDEROPEN = 2
  28. Public Const TFLOPPY514 = 3
  29. Public Const TFLOPPY35 = 4
  30. Public Const THARDDRIVE = 5
  31. Public Const TNETDRIVE = 6
  32. Public Const TCDROMDRIVE = 7
  33. Public Const TMYCOMPUTER = 8
  34. Public Const TINTERNET = 9
  35. Public Const TDESKTOP = 10
  36. Public Const TRAMDRIVE = 11
  37. Public Const TFILE = 12
  38. Public Const TSHORTCUTCLOSED = 13
  39. Public Const TSHORTCUTOPEN = 14
  40. Public Const TSHORTCUTFILE = 15
  41.  
  42. Public Const TBPREVIOUS = 1
  43. Public Const TBNEW = 2
  44. Public Const TBNETCONNECT = 3
  45. Public Const TBTBNETDISCONNECT = 4
  46. Public Const TBCUT = 5
  47. Public Const TBCOPY = 6
  48. Public Const TBPASTE = 7
  49. Public Const TBUNDODELETE = 8
  50. Public Const TBDELETE = 9
  51. Public Const TBPROPERTIES = 10
  52. Public Const TBVIEWLARGEICONS = 11
  53. Public Const TBVIEWSMALLICONS = 12
  54. Public Const TBVIEWLIST = 13
  55. Public Const TBVIEWDETAILS = 14
  56.  
  57. '- Global Variables ---------------------------
  58. Public gUniqueID As Long
  59. Public Const FMTINDEX = "00"                    ' FTP Control Index Format = (00..99)
  60. Public Const FMTUID = "000"                     ' Unique ID Format Allows For 999 Unique Forms
  61. Public Const FMTDATETIME = "mm/dd/yy hh:mm AMPM" ' File Date & Time Format
  62.  
  63. '- ListView Column Constants -----------------
  64. Public Const LVCOLFILESIZE = 1                  ' ListView File Size Column Number
  65. Public Const LVCOLFILETYPE = 2                  ' ListView File Type Column Number
  66. Public Const LVCOLFILEDATE = 3                  ' ListView File DateTime Column Number
  67. Public Const LVCOLFILEACCESS = 4                ' ListView File Access Column Number
  68. Public Const FTFOLDER = "Folder"                ' ListView File Type Folder
  69. Public Const FTFILE = "File"                    ' ListView File Type File
  70. Public Const FTSHORTCUT = "Shortcut"            ' ListView File Type Shortcut
  71. Public Const FTCHARDEV = "Charicter Device"     ' Charicter Device File
  72. Public Const FTBLOCKDEV = "Block Device"        ' Block Device File
  73. Public Const FTUNIXDS = "Unix Domain Socket (BSD)" ' Unix Domain Socket (BSD)
  74. Public Const FTNAMEDPIPE = "Named Pipe (ATT)"   ' Named Pipe (ATT)
  75.  
  76. '- Tree Node Type Char(2) Constants -----------------
  77. '- Path - Tree View Node Types
  78. Public Const ntDESKTOP = "RR"                   ' DeskTop Root Node ID...
  79. Public Const ntMYCOMPUTER = "RM"                ' My Computer Root Node ID...
  80. Public Const ntNETWORK = "RN"                   ' Network Root Node ID...
  81. Public Const ntINTERNET = "RI"                  ' Internet Root Node ID...
  82. Public Const ntMCRCHILD = "MR"                  ' My Computer Root Child Node ID...
  83. Public Const ntNWRCHILD = "NR"                  ' Network UNC Root Child Node ID \\Server\Share\...\
  84. Public Const ntINRCHILD = "IR"                  ' Internet FTP Root Child Node ID...
  85. Public Const ntMCCHILD = "MC"                   ' My Computer Child Node ID...
  86. Public Const ntNWCHILD = "NC"                   ' Network UNC Child Node ID \\Server\Share\...\
  87. Public Const ntINCHILD = "IC"                   ' Internet FTP Child Node ID...
  88. '- File - List View Node Types
  89. Public Const ftMCFILE = "MF"                    ' My Computer File Type
  90. Public Const ftNWFILE = "NF"                    ' Network UNC File Type
  91. Public Const ftINFILE = "IF"                    ' Internet FTP File Type
  92. Public Const dtMCDIR = ntMCCHILD                ' My Computer Directory Type
  93. Public Const dtNWDIR = ntNWCHILD                ' Network UNC Directory Type
  94. Public Const dtINDIR = ntINCHILD                ' Internet FTP Directory Type
  95.  
  96. Public Const FTPDIR = "<DIR>"                   ' Microsoft(Only) FTP Directory Flag Value...
  97. Public Const FTPSHORTCUT = "->"                 ' Unix Type ShortCut...
  98.  
  99. Public Const NODEFTPIDXLEN = 2                  ' Length Of Node FTP Control Index ID = ("xx")
  100. Public Const NODEFORMIDLEN = 3                  ' Length Of Node Form ID = A Three Digit Num (000)
  101. Public Const NODEIDLEN = 2                      ' Length Of Node Type ID = 2 Char String ("xx")
  102. Public Const NODEPREFIXLEN = NODEFORMIDLEN + NODEIDLEN ' Length Of Node Prefix = NODEFILEIDLEN + NODEIDlEN
  103. Public Const NULLIDX = "00"                     ' Null FTP Index For Non FTP Nodes...
  104.  
  105. '- Tree Node Name Constants --------------------------------
  106. Public Const NTRDESKTOP = "Desktop"
  107. Public Const NTRMYCOMPUTER = "My Computer"
  108. Public Const NTRNETWORK = "UNC Network"
  109. Public Const NTRINTERNET = "FTP Internet"
  110. Public Const FTPROOTDIR = "."
  111. Public Const FTPBASEPORT = 1024                 ' FTP Base Local Port Num...
  112.  
  113. '- FTP Dir/File Info UDT -----------------------------------
  114. Type FTPFileInfo
  115.     fName As String
  116.     fDateTime As String
  117.     fSize As Long
  118.     fType As String
  119.     fAccess As String
  120. End Type
  121.  
  122. '- Global Variables ----------------------------------------
  123. Public AppCLIPBOARD() As String                 ' Global Application ClipBoard Variable
  124.  
  125. '- FTP CallBack Constants ----------------------------------
  126. Public Const FTPERROR = -1                      ' Callback Event Error
  127. Public Const FTPSUCCESS = 0                     ' Callback Event Success
  128. 'Public Const FTPCONNECTING = 1                  ' Connecting Callback
  129. 'Public Const FTPLIST = 2                        ' File List Callback
  130. Public Const FTPRENAMEFILE = 3                  ' Rename File Callback
  131. Public Const FTPRENAMEDIR = 4                   ' Rename Dir Callback
  132. Public Const FTPPUTFILE = 5                     ' Put File Callback
  133. Public Const FTPGETFILE = 6                     ' Put File Callback
  134.  
  135. '- Tree Node, List Item Extract Constants ------------------
  136. Public Const liFILENAME = 0                       ' Extract FileName Only
  137. Public Const PATHNAME = 1                       ' Extract Path Only
  138. Public Const FULLNAME = 2                       ' Extract Full Path\File Name
  139. Public Const CTLINDEX = 3                       ' Extract FTP Control Index
  140. Public Const PARENTFORMID = 4                   ' Extract Parent Form ID
  141. Public Const NODETYPEID = 5                     ' Extract Node Type ID
  142. Public Const FULLPREFIX = 6                     ' Extract Full Prefix [FormID + NodeTypeID + FTP_Ctl_Index]
  143.  
  144.